5 POKE 53281,0:POKE 53280,0
6 PRINT:PRINT:PRINT:PRINT:PRINT
7 PRINT:PRINT:PRINT:PRINT:PRINT
8 PRINT:PRINT:PRINT:PRINT:PRINT
9 PRINT:PRINT:PRINT:PRINT:PRINT
10 PRINT:PRINT:PRINT:PRINT:PRINT
11 PRINT:PRINT:PRINT:PRINT:PRINT
100 GOTO 10000
1000 REM AUSDRUCK FELD COMPUTER
1010 IF X=1 THEN A$="C"
1020 IF X=2 THEN B$="C"
1030 IF X=3 THEN C$="C"
1040 IF X=4 THEN F$="C"
1050 IF X=5 THEN I$="C"
1060 IF X=6 THEN H$="C"
1070 IF X=7 THEN G$="C"
1080 IF X=8 THEN D$="C"
1090 IF X=9 THEN E$="C"
1500 REM AUSDRUCK FELD SPIELER
1510 IF Y=1 THEN A$="S"
1520 IF Y=2 THEN B$="S"
1530 IF Y=3 THEN C$="S"
1540 IF Y=4 THEN F$="S"
1550 IF Y=5 THEN I$="S"
1560 IF Y=6 THEN H$="S"
1570 IF Y=7 THEN G$="S"
1580 IF Y=8 THEN D$="S"
1590 IF Y=9 THEN E$="S"
1600 PRINT:PRINT A$;B$;C$
1601 PRINT D$;E$;F$
1602 PRINT G$;H$;I$:PRINT
1610 RETURN
2000 COMPUTERZUG
2010 PRINT "COMPUTER ZIEHT";X
2020 RETURN
2500 SPIELERZUG
2510 INPUT "DEIN ZUG";Y
2520 RETURN
3000 AUSGABE COMPUTERSIEG
3010 PRINT "DER COMPUTER HAT GEWONNEN."
3020 END
10000 DEF FNM(X)=X-8*INT((X-1)/8)
10001 W=0
10010 A$="1":B$="2":C$="3":D$="8"
10020 E$="9":F$="4":G$="7":H$="6":I$="5"
10030 X=9
10040 GOSUB 2010
10050 GOSUB 1010
10060 GOSUB 2510
10070 O=Y:G=FNM(O+1):X=G
10080 GOSUB 2010
10090 GOSUB 1010
10100 GOSUB 2510
10110 P=Y
10120 IF P=FNM(G+4) THEN B=FNM(G+2):X=B:PR=1
10130 IF PR<>1 THEN B=FNM(G+4):X=B:W=1
10135 GOSUB 2010
10136 GOSUB 1010
10140 IF W=1 THEN GOSUB 3010
10150 PR=0:W=0
10180 GOSUB 2510
10190 C=Y
10200 IF C=FNM(B+4) THEN PR2=1
10201 IF PR2=1 AND O/2 <> INT (O/2) THEN PR2=5
10202 IF PR2=0 THEN D=FNM(B+4):X=D:W=1
10203 IF PR2=1 THEN D=FNM(B+7):X=D:W=1
10204 IF PR2=5 THEN D=FNM(B+3):X=D
10210 GOSUB 2010
10215 GOSUB 1010
10220 IF W=1 THEN GOSUB 3010
10225 PR2=0:W=0
10230 GOSUB 2510
10240 H=Y
10250 IF H=FNM(D+4) THEN K=FNM(D+6):X=K:PR3=1
10260 IF PR3<>1 THEN K=FNM(D+4):X=K
10270 GOSUB 2010
10280 GOSUB 1010
10290 PRINT:PRINT "GLUEHSTRUMPF, REMIS !!!"
10300 END